;formations:
 Veldt:         pack 255        enemy 0
 Zone Eater:    pack 032        enemy 335

;space: [C0/C238, C0/C277]
:load pseudo-random formation from the veldt
 C0/C238 48             PHA
 C0/C239 22 DF C2 C0    JSL $C0C2DF     load random veldt formation
 C0/C23D 68             PLA

:adjust to special pack formations: Veldt/Zone Eater
 C0/C23E C9 FF          CMP #$FF        is it the veldt pack?
 C0/C240 F0 1A          BEQ $C25C       exit because flags are already set
 C0/C242 C9 20          CMP #$20        is it the zone eater pack?
 C0/C244 D0 0B          BNE $C251       skip zone eater configuration if not
                        
:zone eater case
 C0/C246 C2 20          REP #$20        16-bit A
 C0/C248 A9 4F 01       LDA #$014F      zone eater formation ID
 C0/C24B 8F E0 11 00    STA $0011E0     save for encounter
 C0/C24F E2 20          SEP #$20        8-bit A
                        
:set normal battle flags
 C0/C251 7B             TDC
 C0/C252 AD D7 1E       LDA $1ED7       event bits
 C0/C255 29 10          AND #$10
 C0/C257 4A             LSR A
 C0/C258 8F E4 11 00    STA $0011E4     set as normal battle

:exit
 C0/C25C A9 01          LDA #$01
 C0/C25E 6B             RTL
